home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)te.d64 / topic sentence.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  19KB  |  523 lines
  1. 50 REM******THE TOPIC SENTENCE******
  2. 52 REM******************************
  3. 54 REM************BY****************
  4. 56 REM******************************
  5. 58 REM*********DANIEL FLINN*********
  6. 60 REM******************************
  7. 62 REM**UNIVERSITY OF EAST AFRICA***
  8. 64 REM******************************
  9. 66 REM***P.O. BOX 2500**************
  10. 68 REM******************************
  11. 70 REM*******ELDORET,KENYA**********
  12. 95 RESTORE:POKE53272,21
  13. 100 PRINT"[147]":POKE53280,0:POKE53281,0
  14. 110 FORI=1144TO1183:POKEI,102:POKEI+54272,7:NEXTI
  15. 120 FORI=1183TO1703STEP40:POKEI,102:POKEI+54272,7:NEXTI
  16. 130 FORI=1703TO1664STEP-1:POKEI,102:POKEI+54272,7:NEXTI
  17. 140 FORI=1664TO1144STEP-40:POKEI,102:POKEI+54272,7:NEXTI
  18. 150 PRINTTAB(9)"[156]THE PARAGRAPH SERIES"
  19. 160 PRINTTAB(9)" THE TOPIC SENTENCE [146]"
  20. 170 PRINTTAB(18)"A"
  21. 180 PRINTTAB(15)"[129]TUTORIAL"
  22. 185 FORT=1TO1000:NEXTT
  23. 190 PRINTTAB(7)"[158]PRESS RETURN FOR OPTIONS"
  24. 195 GOSUB8000
  25. 200 GETA$:IFA$=""THEN200
  26. 210 IFA$<>CHR$(13)THEN200
  27. 220 PRINT"[147]"
  28. 221 PRINT""TAB(4)"[152]                             "
  29. 222 PRINTTAB(4)"[152]                             "
  30. 223 PRINTTAB(4)"[152]                             "
  31. 224 PRINTTAB(4)"[152]                             "
  32. 225 PRINTTAB(4)"[152]                             "
  33. 226 PRINTTAB(4)"[152]                             "
  34. 227 PRINTTAB(4)"[152]                             "
  35. 228 PRINTTAB(4)"[152]                             "
  36. 229 PRINTTAB(4)"[152]                             "
  37. 230 PRINTTAB(4)"[152]                             "
  38. 231 PRINTTAB(4)"[152]                             "
  39. 233 PRINT"":PRINTTAB(14)"[159]OPTIONS"
  40. 235 PRINTTAB(5)"[129] F1 [146]=TEACHER INSTRUCTIONS"
  41. 240 PRINTTAB(5)"[153] F3 [146]=STUDENT INSTRUCTIONS"
  42. 250 PRINTTAB(5)" F5 [146]=TUTORIAL
  43. 251 [129]I[178]1[164]500[169]40:A[178]1186[170]I:B[178]1215[170]I
  44. 252 [151]A,102:[151]A[170]54272,2:[151]B,102:[151]B[170]54272,2:[130]I
  45. 253 [129]I[178]1[164]30:A[178]1186[170]I:B[178]1666[170]I
  46. 254 [151]A,102:[151]A[170]54272,2:[151]B,102:[151]B[170]54272,2:[130]I
  47. 260 [153]"SYS CHOOSE ONE "
  48. 270 [129]T[178]1[164]200:[130]T
  49. 280 [153]"SYS CHOOSE ONE "
  50. 290 [129]T[178]1[164]200:[130]T
  51. 300 [161]A$:[139]A$[178]""[167]260
  52. 310 [139]A$[179][177]"INPUT"[175]A$[179][177]"DIM"[175]A$[179][177]"READ"[167]260
  53. 320 [139]A$[178]"INPUT"[167][137]400
  54. 330 [139]A$[178]"DIM"[167][137]427
  55. 340 [139]A$[178]"READ"[167][137]460
  56. 400 [153]"LOAD":[153][163]7)"ON TEACHER INSTRUCTIONS "
  57. 410 [153]"PRINT#THIS PROGRAM IS DESIGNED TO BE USED IN  CONJUNCTION WITH A ";
  58. 415 [153]"COMPOSITION COURSE.ITIS UNDERSTOOD THAT IN ITSELF, THE ";
  59. 417 [153]"PRO-  GRAM IS INADEQUATE TO TEACH A STUDENT   HOW TO ACTUALLY WRITE A ";
  60. 418 [153]"WELL ORGANIZED, COHERENT PARAGRAPH. THE PROGRAM IS,     HOWEVER,";
  61. 419 [153]"A GOOD START."
  62. 420 [153]"THERE IS AN OPTIONAL ASSIGNMENT AT THE  END OF THE PROGRAM."
  63. 421 [129]T[178]1[164]7000:[130]T:[141]8000
  64. 422 [153][163]12)"SYS PRESS RETURN "
  65. 423 [161]A$:[139]A$[178]""[167]423
  66. 424 [139]A$[179][177][199](13)[167]423
  67. 425 [137]220
  68. 427 [153]"LOAD":[153][163]8)"ON STUDENT INSTRUCTIONS "
  69. 430 [153]"PRINT#THIS PROGRAM IS DESIGNED TO TEACH YOU   HOW TO RECOGNIZE ";
  70. 435 [153]"AND USE GOOD TOPIC     SENTENCES."
  71. 440 [153]"SINCE THE TOPIC SENTENCE IS THE KEY TO ACOHERENT, WELL ORGANIZED ";
  72. 445 [153]"PARAGRAPH, IT  IS ESSENTIAL THAT YOU LEARN TO USE IT   CORRECTLY."
  73. 447 [153]"FOLLOW ALL INSTRUCTIONS CAREFULLY AND   TYPE RESPONSES EXACTLY ";
  74. 448 [153]"AS THEY APPEAR INTHE SENTENCES."
  75. 449 [129]T[178]1[164]7000:[130]T:[141]8000
  76. 450 [153][163]11)"SYS PRESS RETURN "
  77. 455 [161]A$:[139]A$[178]""[167]455
  78. 456 [139]A$[179][177][199](13)[167]455
  79. 457 [137]220
  80. 460 [153]"LOAD":[151]53272,23:[153][163]12)"ON (null)BJECTIVES "
  81. 465 [153]"CONT(null)HE STUDENT WILL BE ABLE TO:
  82. 470 PRINTTAB(3)"A)[129][210]ECOGNIZE AND DEFINE A TOPIC            SENTENCE"
  83. 475 PRINTTAB(3)"B)[129][201]DENTIFY THE CONTROLLING IDEA"
  84. 480 PRINTTAB(3)"C)[129][206]ARROW A TOPIC SUITABLE FOR A           PARAGRAPH"
  85. 485 PRINTTAB(3)"D)[129][201]DENTIFY A COHERENT, WELL ORGANIZED     PARAGRAPH"
  86. 488 FORT=1TO7000:NEXTT:GOSUB8000
  87. 490 PRINTTAB(11)"[158] [208]RESS [210]ETURN "
  88. 492 GETA$:IFA$=""THEN492
  89. 495 IFA$<>CHR$(13)THEN492
  90. 500 PRINT"[147]":PRINTTAB(12)"[145][156] [204]ESSON #1 "
  91. 505 PRINT"[150][215]HAT IS A TOPIC SENTENCE?"
  92. 510 PRINTTAB(3)"1)[154][212]HE TOPIC SENTENCE[146] IS THE MAIN     SENTENCE OF ";
  93. 515 PRINT"THE PARAGRAPH."
  94. 520 PRINTTAB(3)"[150]2)[153][212]HE TOPIC SENTENCE[146] GUIDES OR CON-  TROLS THE ";
  95. 525 PRINT"PARAGRAPH."
  96. 530 PRINTTAB(3)"[150]3)[156][212]HE TOPIC SENTENCE[146] NARROWS[156] THE     TOPIC TO ";
  97. 535 PRINT"SUITABLE SIZE FOR DISCUSSION."
  98. 540 PRINTTAB(3)"[150]4)[159][212]HE TOPIC SENTENCE[146] LETS THE READER KNOW WHAT ";
  99. 545 PRINT"THE PARAGRAPH WILL DISCUSS."
  100. 548 FORT=1TO2000:NEXTT
  101. 550 PRINT"TOPIC SENTENCE"
  102. 552 FORI=1384TO1423:POKEI,121:POKEI+54272,14:FORT=1TO25:NEXTT:NEXTI
  103. 555 FORT=1TO2000:NEXTT
  104. 560 PRINT"TOPIC SENTENCE"
  105. 562 FORI=1544TO1583:POKEI,121:POKEI+54272,13:FORT=1TO25:NEXTT:NEXTI
  106. 565 FORT=1TO2000:NEXTT
  107. 570 PRINT"TOPIC SENTENCE"
  108. 572 FORI=1704TO1743:POKEI,121:POKEI+54272,4:FORT=1TO25:NEXTT:NEXTI
  109. 575 FORT=1TO2000:NEXTT
  110. 580 PRINT"TOPIC SENTENCE"
  111. 582 FORI=1864TO1903:POKEI,121:POKEI+54272,3:FORT=1TO25:NEXTT:NEXTI
  112. 583 FORT=1TO700:NEXTT
  113. 584 GOSUB8000
  114. 585 PRINTTAB(11)"[158] [208]RESS RETURN "
  115. 590 GETA$:IFA$=""THEN590
  116. 595 IFA$<>CHR$(13)THEN590
  117. 600 FORI=1024TO2023:POKEI,32:NEXTI
  118. 605 PRINT"[152][215]HAT IS A TOPIC SENTENCE NOT?"
  119. 610 PRINTTAB(2)"1)[212]HE TOPIC SENTENCE[146] IS NOT ALWAYS    THE FIRST ";
  120. 615 PRINT"SENTENCE IN A PARAGRAPH."
  121. 620 PRINTTAB(2)"2)[212]HE TOPIC SENTENCE[146] IS NOT THE SAME  AS THE TITLE ";
  122. 625 PRINT"OF THE PARAGRAPH."
  123. 630 PRINTTAB(2)"3)[212]HE TOPIC SENTENCE[146] ISN'T A FRAGMENT; IT IS ";
  124. 635 PRINT"ALWAYS A COMPLETE SENTENCE."
  125. 640 PRINTTAB(2)"4)[212]HE TOPIC SENTENCE[146] IS NOT SEPARATED FROM ";
  126. 645 PRINT"THE REST OF THE PARAGRAPH."
  127. 669 PRINTTAB(11)"[158] [208]RESS [210]ETURN "
  128. 672 GOSUB8000
  129. 673 GETA$:IFA$=""THEN673
  130. 675 IFA$<>CHR$(13)THEN673
  131. 680 PRINT"TOPIC SENTENCE"
  132. 682 FORT=1TO2000:NEXTT
  133. 684 PRINT"TOPIC SENTENCE"
  134. 686 FORT=1TO2000:NEXTT
  135. 688 PRINT"TOPIC SENTENCE"
  136. 690 FORT=1TO2000:NEXTT
  137. 692 PRINT"TOPIC SENTENCE"
  138. 693 FORT=1TO2000:NEXTT
  139. 694 FORT=1TO500:NEXT:GOSUB8000
  140. 695 PRINTTAB(10)"[156]    [208]RESS [198]1    "
  141. 700 GETA$:IFA$=""THEN700
  142. 705 IFA$<>"[133]"THEN700
  143. 710 PRINT"[147]":PRINT"[156] [204]ESSON 1 CONTINUED "
  144. 715 PRINT"[152][211]OME OF THE ITEMS BELOW ARE TOPICS AND  SOME ARE TITLES.";
  145. 720 PRINT" [206]ONE  IS A  TOPIC      SENTENCE! [211]TUDY THEM "
  146. 723 FORCT=1TO6
  147. 725 PRINT"CAREFULLY."
  148. 727 FORT=1TO300:NEXTT
  149. 728 PRINT"[156]CAREFULLY."
  150. 730 FORT=1TO300:NEXTT
  151. 735 NEXTCT
  152. 740 GOSUB5000
  153. 745 GOSUB8000
  154. 750 PRINTTAB(3)"[145][156] [208]RESS [211]PACE [194]AR [198]OR [193]NALYSIS "
  155. 755 GETA$:IFA$=""THEN755
  156. 760 IFA$<>CHR$(32)THEN755
  157. 765 PRINT" TOPIC "
  158. 767 FORT=1TO700:NEXTT
  159. 770 PRINT" TITLE "
  160. 775 FORT=1TO700:NEXTT
  161. 777 PRINT" TOPIC "
  162. 780 FORT=1TO700:NEXTT
  163. 785 PRINT" TITLE "
  164. 790 FORT=1TO700:NEXTT
  165. 795 PRINT" TOPIC "
  166. 800 FORT=1TO700:NEXTT
  167. 805 PRINT" TITLE "
  168. 810 FORT=1TO700:NEXTT
  169. 815 PRINT" TOPIC "
  170. 817 GOSUB8000
  171. 820 PRINT"         [158] [208]RESS [210]ETURN [146]              "
  172. 825 GETA$:IFA$=""THEN825
  173. 830 IFA$<>CHR$(13)THEN825
  174. 840 PRINT"[145]":FORCT=1TO920:PRINTCHR$(18);" ";:NEXTCT
  175. 850 FORT=1TO500:NEXTT
  176. 860 PRINT"":PRINTCHR$(142):GOSUB5000
  177. 861 POKE2040,13:FORN=0TO62:READQ:POKE832+N,Q:NEXT
  178. 862 V=53248:POKEV+21,1:POKEV+39,7:POKEV+29,1:POKEV+1,100
  179. 863 FORJ=0TO347:HY=INT(J/256):LY=J-256*HY
  180. 864 POKEV,LY:POKEV+16,HY:NEXT
  181. 865 GOSUB5000
  182. 866 PRINT"":FORI=1TO360:PRINTCHR$(18);" ";:NEXTI
  183. 868 GOSUB8000
  184. 870 PRINTTAB(5)"[156] PRESS F1 TO DECODE MESSAGE"
  185. 875 GETA$:IFA$=""THEN875
  186. 880 IFA$<>"[133]"THEN875
  187. 882 FORI=1544TO1583:POKEI,224:POKEI+54272,6:NEXTI
  188. 890 PRINTCHR$(14)
  189. 892 FORT=1TO2000:NEXTT:GOSUB8000
  190. 895 PRINTTAB(4)" [158] [208]RESS [211]PACE [194]AR [212]O [193]CCEPT [146]      "
  191. 900 GETA$:IFA$=""THEN900
  192. 905 IFA$<>CHR$(32)THEN900
  193. 910 PRINT"[147]":PRINT"[145][156] [204]ESSON 1 CONTINUED "
  194. 915 PRINT"[152][199][207][207][196]! [206]OW THAT YOU ARE SERIOUS ABOUT    LEARNING ABOUT THE ";
  195. 920 PRINT"TOPIC SENTENCE, LET'SLOOK AT A FEW EXAMPLES OF TOPIC SENTEN- CES:"
  196. 927 FORT=1TO2000:NEXTT
  197. 930 GOSUB5000
  198. 940 PRINT"[147]":PRINT" [204]ESSON 1 CONTINUED "
  199. 945 PRINT"[152][194]ASICALLY THERE ARE TWO PARTS TO A TOPICSENTENCE.";
  200. 950 PRINT"[212]HERE IS THE [156]MAIN STATEMENT[146][152] ANDTHERE IS THE CONTROLLING IDEA[146]."
  201. 955 PRINT"[155][212]HE CONTROLLING IDEA[146][155] IS THE MOST IMPOR- TANT PART OF THE ";
  202. 960 PRINT"TOPIC SENTENCE,FOR IT  NARROWS OR LIMITS THE RANGE OF THE ";
  203. 965 PRINT"DIS- CUSSION AND LETS THE READER KNOW ON WHATSPECIFIC DETAIL(S) ";
  204. 970 PRINT"THE WRITER PLANS TO  FOCUS."
  205. 975 PRINT"[151][212]HE CONTROLLING IDEA[146][151] MAY CONSIST OF ONE WORD OR IT ";
  206. 980 PRINT"MAY BE COMPOSED OF SEVERAL   WORDS."
  207. 982 FORT=1TO8000:NEXT:GOSUB8000
  208. 985 PRINTTAB(11)"[158] [208]RESS [210]ETURN "
  209. 990 GETA$:IFA$=""THEN990
  210. 995 IFA$<>CHR$(13)THEN990
  211. 1000 PRINT"[147]":PRINT"[145][129] [204]ESSON 1 CONTINUED "
  212. 1005 PRINT"[155][204]ET'S EXAMINE THOSE SAME TOPIC SENTENCESAGAIN TO SEE ";
  213. 1010 PRINT"WHERE THE CONTROLLING IDEASARE."
  214. 1015 RESTORE:FORX=1TO79:READD$:NEXTX:GOSUB5000
  215. 1017 GOSUB8000
  216. 1020 PRINT"[145][208]RESS [211]PACE [194]AR [212]O [211]EE [195]ONTROLLING [201]DEAS[146]            IN [215]HITE"
  217. 1025 GETA$:IFA$=""THEN1025
  218. 1030 IFA$<>CHR$(32)THEN1025
  219. 1035 FORI=55600TO55614:POKEI,1:FORT=1TO50:NEXTT:NEXTI
  220. 1040 FORT=1TO700:NEXTT:FORI=55681TO55716:POKEI,1:FORT=1TO50:NEXTT,I
  221. 1045 FORT=1TO700:NEXTT:FORI=55788TO55798:POKEI,1:FORT=1TO50:NEXTT,I
  222. 1050 FORT=1TO700:NEXTT:FORI=55917TO55949:POKEI,1:FORT=1TO50:NEXTT,I
  223. 1055 FORT=1TO700:NEXTT:FORI=56033TO56052:POKEI,1:FORT=1TO50:NEXTT,I
  224. 1057 GOSUB8000
  225. 1060 PRINT"[145][145]         [158] [208]RESS [210]ETURN [146]                                        "
  226. 1065 GETA$:IFA$=""THEN1065
  227. 1070 IFA$<>CHR$(13)THEN1065
  228. 1075 PRINT"[147]":PRINT"[145][159] [204]ESSON 1 CONTINUED "
  229. 1085 PRINT"[152][204]ET'S EXAMINE THE FIRST  TOPIC SENTENCE IN MORE DETAIL:"
  230. 1090 PRINT"  [156][200]ARLEY [211]INKWITCH IS A SLOPPY DRESSER."
  231. 1095 PRINT"  [210]ESPOND TO THE FOLLOWING STATEMENTS   ABOUT A POSSIBLE ";
  232. 1097 PRINT"PARAGRAPH BASED ON THISTOPIC SENTENCE BY PLACING A (+)[146] ";
  233. 1100 PRINT"FOR TRUEAND A (-)[146] FOR FALSE:"
  234. 1105 Z=3:GOSUB5100
  235. 1108 IFP=3THENGOTO1130
  236. 1110 IFP<>3THENPRINT"[147][212]HAT'S NOT GOOD ENOUGH!"
  237. 1115 PRINT" [208]LEASE TRY AGAIN "
  238. 1120 FORT=1TO2000:NEXTT:RESTORE:FORX=1TO85:READD$:NEXTX:P=0:GOTO1075
  239. 1130 PRINT"[147] [212]HAT IS PRETTY GOOD!"TAB(47)"[215]E'LL GO ON NOW..."
  240. 1135 FORT=1TO2000:NEXT:PRINT"[147]"
  241. 1140 PRINT"[145][156] [204]ESSON 1 CONTINUED "
  242. 1145 PRINT"[152][217]OU MUST HAVE GUESSED BY NOW THAT THE   CONTROLLING IDEA[146] ";
  243. 1150 PRINT"(SLOPPY DRESSER)[146][156] LIMITSTHE PARAGRAPH'S DISCUSSION TO ";
  244. 1155 PRINT"ONLY THOSESPECIFIC DETAILS ABOUT [200]ARLEY'S SLOPPY  APPEARANCE."
  245. 1160 PRINT"[159][193]NY OTHER IDEAS WOULD DESTROY THE UNITY[146][159] OR COHERENCE[146][159] ";
  246. 1165 PRINT"OF THE PARAGRAPH."
  247. 1170 PRINT"[152][193] GOOD WRITER WILL STICK TO THE CONTROL-LING IDEA OF THE ";
  248. 1175 PRINT"TOPIC SENTENCE."
  249. 1177 FORT=1TO8000:NEXTT:GOSUB8000
  250. 1180 PRINTTAB(11)"[158] [208]RESS [210]ETURN "
  251. 1185 GETA$:IFA$=""THEN1185
  252. 1190 IFA$<>CHR$(13)THEN1185
  253. 1200 PRINT"[147][145][154] [204]ESSON 1 CONTINUED "
  254. 1205 PRINT"[151][212]YPE IN A (Y)[146][151] IF THE SENTENCE WILL SUIT THE TOPIC ";
  255. 1210 PRINT"SENTENCE AND A (N)[146][151] IF IT WILL NOT.";
  256. 1212 PRINT"([200]ARLEY IS A SLOPPY DRESSER.)[146]
  257. 1215 Z[178]5:[141]5100
  258. 1220 [153]"LOADONLESSON 1 CONTINUED "
  259. 1225 [153]"POKE    (null)ET'S LOOK AT AN ENTIRE PARAGRAPH   BEGINNING WITH THE ";
  260. 1230 [153]"TOPIC SENTENCE WE'VE BEEN STUDYING."
  261. 1235 [141]5000
  262. 1240 [129]I[178]1664[164]1703:[151]I,160:[151]I[170]54272,5:[130]I
  263. 1245 [153]"PRINTSTR$O YOU SEE HOW THE CONTROLLING IDEAWAITPRINT     GUIDES THE ";
  264. 1250 [153]"PARAGRAPH?"
  265. 1252 [129]T[178]1[164]5000:[130]T:[141]8000
  266. 1255 [153][163]11)"SYS (null)RESS (null)ETURN "
  267. 1260 [161]A$:[139]A$[178]""[167]1260
  268. 1265 [139]A$[179][177][199](13)[167]1260
  269. 1270 [153]"LOAD"[163]12)"ON (null)ESSON 2 "
  270. 1275 [153]"PRINT#(null)ET'S REVIEW WHAT WE HAVE LEARNED ABOUT THE TOPIC ";
  271. 1280 [153]"SENTENCE:"
  272. 1285 [153][163]2)"1)(null)HE TOPIC SENTENCE IS ALWAYS A COM- PLETE SENTENCE."
  273. 1290 [153][163]2)"2)(null)HE TOPIC SENTENCE, THOUGH USUALLY  THE FIRST ";
  274. 1295 [153]"SENTENCE IN THE PARAGRAPH, MAYAPPEAR IN OTHER LOCATIONS."
  275. 1300 [153][163]2)"CLR3)ATN TOPIC SENTENCE MUST HAVE A CON-   TROLLING IDEA ";
  276. 1305 [153]"WHICH NARROWS OR LIMITS   THE TOPIC OF DISCUSSION."
  277. 1310 [153][163]2)"FOR4)(null)HE TOPIC SENTENCE IS NOT SEPARATED FROM THE REST ";
  278. 1315 [153]"OF THE PARAGRAPH."
  279. 1317 [129]T[178]1[164]8000:[130]T:[141]8000
  280. 1320 [153][163]11)"SYS (null)RESS (null)ETURN "
  281. 1325 [161]A$:[139]A$[178]""[167]1325
  282. 1330 [139]A$[179][177][199](13)[167]1325
  283. 1335 [153]"LOADON (null)OPIC (null)ENTENCE LENONTINUED "
  284. 1340 [153]"PRINT#(null)KAY! (null)ET'S LOOK AT ANOTHER OF OUR TOPICSENTENCE EXAMPLES.";
  285. 1345 [153]"(null)YPE A (Y)WAITPRINT# IF THE SEN-TENCE WILL GO WITH THE CONTROLLING IDEA ";
  286. 1350 [153]"AND A (N)WAITPRINT# IF IT WILL NOT FIT."
  287. 1355 [153]"(null)Y FRIEND PEEKETH IS A LOT OF FUN TO BE    AROUND."
  288. 1360 Z[178]4:[141]5100
  289. 1365 [153]"LOADCLR (null)OPIC (null)ENTENCE LENONTINUED "
  290. 1370 [153]"PRINT#(null)OW WE WILL EXAMINE A SECOND PARAGRAPH  IN ITS ENTIRETY:"
  291. 1375 [153]"   (null)Y FRIEND PEEKETH IS A LOT OF FUN TO BE AROUND.";
  292. 1380 [153]"ASCOR ONE THING, SHE ALWAYS SEES   THE BRIGHT SIDE OF LIFE.";
  293. 1385 [153]" (null)HE'S ALSO     CREATIVE AND INVENTIVE AND SHE SHOWS US HOW TO HAVE ";
  294. 1390 [153]"A GOOD TIME ON LITTLE MONEY.PEEKESIDES THAT, SHE ALWAYS ";
  295. 1395 [153]"LOOKS OUT FOR  THE OTHER PERSON. (null)HE CARES ABOUT OTHERSFIRST.";
  296. 1400 [153]"RIGHT$T'S NO WONDER PEEKETH IS SO POPULAR WITH EVERYONE AT SCHOOL!"
  297. 1402 [129]T[178]1[164]12000:[130]:[141]8000
  298. 1405 [153][163]11)"SYS (null)RESS (null)ETURN "
  299. 1410 [161]A$:[139]A$[178]""[167]1410
  300. 1415 [139]A$[179][177][199](13)[167]1410
  301. 1420 [129]I[178]1864[164]1903:[151]I,32:[151]I[170]54272,0:[130]
  302. 1425 [129]I[178]1704[164]1743:[151]I,160:[151]I[170]54272,5:[129]T[178]1[164]20:[130]T:[130]I
  303. 1426 [129]CT[178]1[164]5
  304. 1427 [153]" (null)LEASE (null)OTE "
  305. 1428 [129]T[178]1[164]250:[130]T
  306. 1429 [153]" (null)LEASE (null)OTE "
  307. 1430 [129]T[178]1[164]250:[130]T
  308. 1432 [130]CT
  309. 1434 [153]"CONTSTR$O YOU SEE HOW EVERY SENTENCE MUST REFERDIRECTLY TO THE ";
  310. 1435 [153]"CONTROLLING IDEA OF THE TOPIC SENTENCE?"
  311. 1437 [129]T[178]1[164]3000:[130]:[141]8000
  312. 1440 [153][163]11)"SYS (null)RESS (null)ETURN "
  313. 1445 [161]A$:[139]A$[178]""[167]1445
  314. 1450 [139]A$[179][177][199](13)[167]1445
  315. 1455 [129]I[178]1744[164]1903:[151]I,32:[151]I[170]54272,0:[130]I
  316. 1460 [153]"ONONONONONCLRRIGHT$F THE MAIN SENTENCES DO NOT RELATE TO  THE CONTROLLING ";
  317. 1465 [153]"IDEA, THEY DO NOT BELONGIN THE PARAGRAPH!"
  318. 1467 [129]T[178]1[164]3000:[130]:[141]8000
  319. 1470 [161]A$:[139]A$[178]""[167]1470
  320. 1475 [139]A$[179][177][199](13)[167]1470
  321. 1480 [129]I[178]1744[164]1903:[151]I,32:[151]I[170]54272,0:[130]I
  322. 1485 [153]"ONONONFORATNS YOU CAN SEE HERE, EACH SENTENCE EX-  PLAINS HOW OR WHY ";
  323. 1490 [153]"PEEKETH IS FUN TO BE     AROUND."
  324. 1492 [129]T[178]1[164]3000:[130]:[141]8000
  325. 1495 [161]A$:[139]A$[178]""[167]1495
  326. 1500 [139]A$[179][177][199](13)[167]1495
  327. 1505 [129]I[178]1744[164]1903:[151]I,32:[151]I[170]54272,0:[130]I
  328. 1510 [153]"ONONONRIGHT$T JUST SO HAPPENS THAT THE TOPIC SEN-  TENCE COMES ";
  329. 1515 [153]"FIRST IN THIS EXAMPLE.RIGHT$T MAYAPPEAR IN OTHER PLACES AS WELL."
  330. 1517 [129]T[178]1[164]3000:[130]:[141]8000
  331. 1520 [161]A$:[139]A$[178]""[167]1520
  332. 1525 [139]A$[179][177][199](13)[167]1520
  333. 1530 [153]"LOAD"[163]14)"ON (null)ESSON 2 "
  334. 1535 [153]"           (null)ARROWING THE TOPIC          "
  335. 1540 [153][163]3)"PRINT#(null)OW THAT WE KNOW WHAT A TOPIC SEN-      TENCE ";
  336. 1545 [153]"IS AND HOW THE CONTROLLING        IDEA GUIDES THE ";
  337. 1550 [153]"PARAGRAPH. (null)ET'S SEE    HOW TO NARROW A TOPIC TO ";
  338. 1555 [153]"A SUITABLE     LENGTH--IN THIS CASE--PARAGRAPH         LENGTH."
  339. 1560 [129]T[178]1[164]4000:[130]T:[153][163]11)"SYS (null)RESS (null)ETURN ":[141]8000
  340. 1565 [161]A$:[139]A$[178]""[167]1565
  341. 1570 [139]A$[179][177][199](13)[167]1565
  342. 1575 [129]I[178]1[164]440 [169]40:A[178]1064[170]I:B[178]1102[170]I:[151]A,160:[151]A[170]54272,6
  343. 1576 [151]B,160:[151]B[170]54272,6:[130]I
  344. 1577 [129]I[178]1465[164]1503:[151]I,160:[151]I[170]54272,6:[130]
  345. 1580 [129]T[178]1[164]3000:[130]:[141]8000
  346. 1585 [161]A$:[139]A$[178]""[167]1585
  347. 1587 [129]I[178]1864[164]1903:[151]I,160:[151]I[170]54272,0:[130]
  348. 1590 [129]I[178]1[164]39:A[178]1544[170]I:B[178]1904[170]I:[151]A,160:[151]A[170]54272,4
  349. 1595 [151]B,160:[151]B[170]54272,4:[130]I
  350. 1600 [129]I[178]1[164]400[169]40:A[178]1544[170]I:B[178]1582[170]I:[151]A,160:[151]A[170]54272,4
  351. 1605 [151]B,160:[151]B[170]54272,4:[130]I
  352. 1610 [153][163]3)"ONONONONONCLR(null)E WILL USE THE CONTROLLING IDEA TO"
  353. 1620 [153][163]3)"NARROW THE TOPIC SUFFICIENTLY FOR A"
  354. 1625 [153][163]3)"SINGLE PARAGRAPH."
  355. 1630 [129]T[178]1[164]3000:[130]T:[141]8000
  356. 1640 [153][163]12)"SYS (null)RESS (null)ETURN "
  357. 1645 [161]A$:[139]A$[178]""[167]1645
  358. 1650 [139]A$[179][177][199](13)[167]1645
  359. 1655 [153]"LOAD"[163]8)" (null)ARROWING (null)HE (null)OPIC"
  360. 1660 [153]"PRINT#   (null)OTICE THAT THE FOLLOWING TOPIC SEN- TENCES MAY INVOLVE ";
  361. 1665 [153]"PAPERS OF DIFFERENT  LENGTHS. ATNS YOU EXAMINE EACH SENTENCE, ";
  362. 1670 [153]" ASK YOURSELF WHAT SIZE PAPER WOULD FIT  EACH ONE."
  363. 1675 [129]T[178]1[164]5000:[130]T:[141]5000
  364. 1680 [129]T[178]1[164]6000:[130]:[141]8000
  365. 1685 [153][163]4)"DEF (null)RESS (null)PACE PEEKAR ASCOR ATNNALYSIS "
  366. 1690 [161]A$:[139]A$[178]""[167]1690
  367. 1695 [139]A$[179][177][199](32)[167]1690
  368. 1700 [153]"^(SEVERAL PAGES)"
  369. 1705 [129]T[178]1[164]1000:[130]T:[153]"^(1TO3 PARAGRAPHS)"
  370. 1710 [129]T[178]1[164]1000:[130]T:[153]"^(A BOOK)"
  371. 1715 [129]T[178]1[164]1000:[130]T:[153]"^(A SINGLE PARAGRAPH)"
  372. 1717 [129]T[178]1[164]4000:[130]T:[141]8000
  373. 1720 [153]"           SYS (null)RESS (null)ETURN WAIT            "
  374. 1725 [161]A$:[139]A$[178]""[167]1725
  375. 1730 [139]A$[179][177][199](13)[167]1725
  376. 1740 [153]"LOAD"[163]8)" (null)ARROWING (null)HE (null)OPIC "
  377. 1745 [153]"PRINT#(null)EAD EACH TOPIC SENTENCE AND PLACE A (P)WAITPRINT#FOR PARAGRAPH ";
  378. 1750 [153]"LENGTH OR AN (M)WAITPRINT# FOR MORE THAN A PARAGRAPH."
  379. 1755 Z[178]5:[141]5100
  380. 1760 [153]"LOAD"[163]13)"CLR (null)UMMARY "
  381. 1765 [153]"(null)OU CAN SEE NOW THAT A GOOD PARAGRAPH   BEGINS WITH A GOOD ";
  382. 1770 [153]"TOPIC SENTENCE WHICH CONTAINS A SUFFICIENTLY NARROWED ";
  383. 1775 [153]"CON-   TROLLING IDEA."
  384. 1780 [153]"FOR(null)OU CAN AS WELL OBSERVE THAT A GOOD     WRITER WILL STICK TO ";
  385. 1785 [153]"THE CONTROLLING    IDEA SO THAT THE PARAGRAPH WILL BE CO-  HERENT ";
  386. 1790 [153]"OR UNIFIED."
  387. 1795 [153]"ASCINALLY, YOU CAN SEE THAT THE BEGINNING WRITER WILL FIND ";
  388. 1800 [153]"IT EASIER TO PLACE THE TOPIC SENTENCE AT THE BEGINNING OF ";
  389. 1805 [153]"THE  PARAGRAPH."
  390. 1810 [153]"OPEN(null)RY TO REMEMBER THESE POINTS THE NEXT   TIME YOU WRITE A PARAGRAPH.";
  391. 1815 [153]"(null)HEY COULD   COME IN QUITE HANDY."
  392. 1817 [129]T[178]1[164]10000:[130]T:[141]8000
  393. 1820 [153][163]11)"SYS (null)RESS (null)ETURN "
  394. 1825 [161]A$:[139]A$[178]""[167]1825
  395. 1830 [139]A$[179][177][199](13)[167]1825
  396. 1831 [153]"LOAD":[153][163]10)" BREAKDOWN "
  397. 1832 [153]"YOUR SCORE WAS ";P"WAIT!"
  398. 1833 [153]"17 = EXCELLENT/OUTSTANDING"
  399. 1834 [153]"CLR16 = VERY GOOD"
  400. 1835 [153]"FOR15 = GOOD/ACCEPTABLE"
  401. 1836 [153]"CONT14 OR BELOW REQUIRES REVISION"
  402. 1837 [153][163]11)"SYS PRESS RETURN "
  403. 1838 [161]A$:[139]A$[178]""[167]1838
  404. 1839 [139]A$[179][177][199](13)[167]1838
  405. 1840 [153]"LOAD":[151]53272,21:[153][163]13)"ON OPTIONS ":[129]T[178]1[164]1000:[130]T
  406. 1841 [129]I[178]1081[164]1281[169]40:[151]I,160:[151]I[170]54272,4:[129]T[178]1[164]25:[130]T:[130]I
  407. 1842 [129]I[178]1204[164]1282[169]39:[151]I,78:[151]I[170]54272,4:[130]
  408. 1843 [129]I[178]1198[164]1280[169]41:[151]I,77:[151]I[170]54272,4:[130]
  409. 1844 [129]I[178]1304[164]1343:[151]I,160:[151]I[170]54272,13:[130]I
  410. 1845 [129]I[178]1343[164]1743[169]40:[151]I,160:[151]I[170]54272,13:[130]
  411. 1850 [129]I[178]1743[164]1704[169][171]1:[151]I,160:[151]I[170]54272,13:[130]
  412. 1855 [129]I[178]1704[164]1304[169][171]40:[151]I,160:[151]I[170]54272,13:[130]
  413. 1860 [153][163]5)"F1WAIT = REPEAT TUTORIAL"
  414. 1865 [153][163]5)"CLRF3WAIT = ASSIGNMENT"
  415. 1870 [153][163]5)"FORF5WAIT = QUIT PROGRAM"
  416. 1875 [153]"SYS CHOOSE ONE "
  417. 1880 [129]T[178]1[164]150:[130]T
  418. 1885 [153]"SYS CHOOSE ONE "
  419. 1890 [129]T[178]1[164]150:[130]T
  420. 1895 [161]A$:[139]A$[178]""[167]1875
  421. 1900 [139]A$[179][177]"INPUT"[175]A$[179][177]"DIM"[175]A$[179][177]"READ"[167]1875
  422. 1905 [139]A$[178]"INPUT"[167][137]95
  423. 1910 [139]A$[178]"DIM"[167][137]2000
  424. 1920 [139]A$[178]"READ"[167][153]"LOAD THANK YOU FOR USING THIS PROGRAM!"
  425. 1930 [128]
  426. 2000 [153]"LOAD"[163]11)"CLR ASSIGNMENT "
  427. 2005 [153]"PRINT#1)WRITE OUT THREE TOPIC SENTENCES FOR A   DESCRIPTION OF ";
  428. 2010 [153]"YOUR ROOM AT HOME."
  429. 2015 [153]"2)CHOOSE ONE OF THOSE TOPIC SENTENCES     AND WRITE A 100-150 ";
  430. 2020 [153]"WORD PARAGRAPH."
  431. 2025 [153][163]11)"SYS PRESS RETURN "
  432. 2030 [161]A$:[139]A$[178]""[167]2030
  433. 2035 [139]A$[179][177][199](13)[167]2030
  434. 2040 [153]"ONBE SURE TO COPY DOWN THE ASSIGNMENT     BEFORE YOU TURN OFF THE ";
  435. 2045 [153]"COMPUTER."
  436. 2050 [153]"HAVE A NICE DAY!":[128]
  437. 4999 [144]
  438. 5000 [135]D$
  439. 5010 [139]D$[178]"STOP"[167][137]5050
  440. 5015 [139]D$[178]"RETURN"[167][142]
  441. 5020 [129]I[178]1[164][195](D$)
  442. 5030 [153][202](D$,I,1) ;
  443. 5040 [129]T[178]1[164]50:[130]T,I
  444. 5045 [153]
  445. 5047 [137]5000
  446. 5050 [153][163]11)"SYS (null)RESS (null)ETURN "
  447. 5052 [141]8000
  448. 5055 [161]A$:[139]A$[178]""[167]5055
  449. 5060 [139]A$[179][177][199](13)[167]5055
  450. 5065 [142]
  451. 5100 [129]L[178]1[164]Z
  452. 5110 [135]D$,D1$
  453. 5120 [153]D$
  454. 5130 [133]R$:[139]R$[178]D1$[167][141]7000:[153]"ONLENORRECT!":P[178]P[170]1
  455. 5135 [139]R$[179][177]D1$[167][141]7500:[153]"ON(null)RONG! LENORRECT ANSWER=(";D1$")"
  456. 5140 [130]L
  457. 5143 [153]"(null)OUR TOTAL SCORE="P
  458. 5144 [129]T[178]1[164]1000:[130]T:[141]8000
  459. 5145 [153][163]11)"SYS (null)RESS (null)ETURN "
  460. 5150 [161]A$:[139]A$[178]""[167]5150
  461. 5155 [139]A$[179][177][199](13)[167]5150
  462. 5160 [142]
  463. 6000 [131]"1)LENARS...","CONT2)LEFT$OW (null)O (null)AKE ASCRIENDS...","PRINT3)(null)EBUILDING ENGINES..."
  464. 6010 [131]"FOR4)(null)Y PEEKEST ASCRIEND...","5)(null)AKING MONEY..."
  465. 6015 [131]"DEF6)(null)UR (null)TRANGE (null)ISITOR...","CLR7)LENATCHING FISH...","STOP"
  466. 6020 [131]" MESSAGE NOW COMING IN FROM THE OUTER"
  467. 6025 [131]"REACHES OF THE ENGLISH EMPIRE.STANDBY"
  468. 6030 [131]"FOR DECODING:","RETURN"
  469. 6031 [131]32,0,0,48,0,0,56,0,0,60,0,0,63,0,0,33,0,0,33,248,0,63,255,128
  470. 6032 [131]33,248,0,33,0,0,63,0,0,60,0,0,56,0,0,32,0,0,0,0,0,0,0,0,0,0
  471. 6033 [131]0,0,0,0,0,0,0,0,0,0,0,0,0
  472. 6040 [131]"(null)(null)(null)CLOSELEFT$ATN(null)VALCLOSEPEEKVALVAL(null)CLOSELENLEFT$(null)(null)VAL(null)CLOSE(null)(null)CLOSEVAL(null)PEEKATN(null)(null)CLOSE(null)(null)(null)(null) ATN"
  473. 6045 [131]"(null)(null)VALLENRIGHT$ATN(null)CLOSE(null)RIGHT$(null)(null)RIGHT$(null)(null).(null)(null)(null)CLOSE(null)(null)(null)(null)CLOSEASCRIGHT$(null)(null)(null)CLOSE(null)VALATN(null)(null)"
  474. 6050 [131]"ONATNPEEK(null)(null)(null)CLOSE(null)LEFT$VALCLOSE(null)(null)(null)RIGHT$LENCLOSE(null)VAL(null)(null)VAL(null)LENVAL.","RETURN"
  475. 6055 [131]"1)LEFT$ARLEY (null)INKWITCH IS A SLOPPY DRESSER."
  476. 6060 [131]"2)(null)Y BEST FRIEND PEEKETH IS A LOT OF FUN TO  BE AROUND."
  477. 6065 [131]"FOR3)(null)HERE ARE FOUR STEPS TO KNOW ABOUT      CHANGING A FLAT TIRE."
  478. 6070 [131]"CONT4)RIGHT$ CAN STILL RECALL MY MOST EMBARRAS-    SING MOMENT."
  479. 6075 [131]"OPEN5)(null)UR HOUSE IS A (null)ICTORIAN REPLICA.","STOP"
  480. 6080 [131]"CONT1)(null)HE PARAGRAPH WOULD BE ALL ABOUT        LEFT$ARLEY.","-"
  481. 6085 [131]"2)(null)HE PARAGRAPH MIGHT DISCUSS HIS         APPEARANCE.","+"
  482. 6090 [131]"3)(null)HE PARAGRAPH COULD DISCUSS HIS LOVE    FOR DOGS.","-"
  483. 6100 [131]"1)LEFT$IS SHIRT IS RARELY BUTTONED PROPERLY.","Y"
  484. 6105 [131]"2)LEFT$IS ROOM IS USUALLY UNTIDY","N"
  485. 6110 [131]"FOR3)LEFT$ARLEY'S SOCKS ARE NEVER MATED.","Y"
  486. 6120 [131]"CLR4)LEFT$IS SHOES HAVE NOT HAD ACQUAINTANCE     WITH POLISH FOR SOME TIME."
  487. 6125 [131]"Y","PRINT5)LEFT$ARLEY CANNOT SEEM TO GET TO CLASS ON   TIME.","N"
  488. 6150 [131]"  LEFT$ARLEY (null)INKWITCH IS A SLOPPY DRESSER."
  489. 6155 [131]"LEFT$IS SHIRT IS RARELY BUTTONED PROPERLY."
  490. 6160 [131]"(null)NE PANT LEG USUALLY HANGS DOWN LOWER"
  491. 6165 [131] "THAN THE OTHER ONE. LEFT$IS SOCKS ARE RARELY"
  492. 6170 [131]"ONMATED. LEFT$IS SHOES HAVE NOT BEEN POLISHED"
  493. 6175 [131] "FOR SOME TIME.(null)OOR LEFT$ARLEY IS TRULY A    MESS!","STOP"
  494. 6180 [131]"CLR1)(null)HE MAKES EVERYTHING SEEM INTERESTING.","Y"
  495. 6185 [131]"2)(null)HE SHOWS US THE HUMOROUS SIDE OF      LIFE.ON","Y"
  496. 6190 [131]"OPEN3)PEEKETH IS A VERY TIDY PERSON.","N"
  497. 6195 [131]"FOR4)(null)HE IS CAREFUL ABOUT HOW SHE DRESSES.","N"
  498. 6200 [131]"CLR1)(null)PORTS CARS CAN BE FUN."
  499. 6210 [131]"2)(null)HERE ARE THREE THINGS RIGHT$ LIKE ABOUT     BASKETBALL."
  500. 6220 [131]"FOR3)ATNDOLPH LEFT$ITLER WAS AN INTERESTING MAN."
  501. 6230 [131]"4)(null)Y BEDROOM WINDOW VIEW REVEALS A        NATURAL WONDERLAND."
  502. 6235 [131]"RETURN"
  503. 6240 [131]"FOR1)(null)ANDY HAS AN OUTGOING PERSONALITY.","P"
  504. 6245 [131]"2)(null)ET'S DISCUSS LIONS.","M"
  505. 6250 [131]"CLR3)PEEKABIES REQUIRE SPECIAL TREATMENT.","M"
  506. 6255 [131]"OPEN4)(null)OMETIMES PETS SEEM LIKE PEOPLE.","P"
  507. 6260 [131]"PRINT5)(null)AISING A BEAR CAN BE QUITE A TASK!","M"
  508. 7000 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  509. 7010 [151]S[170]24,15:[151]S[170]5,42:[151]S[170]6,250
  510. 7020 [151]S[170]4,33:[151]S[170]1,23:[151]S,181
  511. 7030 [129]T[178]1[164]200:[130]:[151]S[170]4,32:[129]T[178]1[164]500:[130]
  512. 7040 [142]
  513. 7500 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  514. 7510 [151]S[170]24,15:[151]S[170]5,18:[151]S[170]6,242
  515. 7520 [151]S[170]4,33:[151]S[170]1,4:[151]S,48
  516. 7530 [129]T[178]1[164]300:[130]:[151]S[170]4,32:[129]T[178]1[164]800:[130]
  517. 7540 [142]
  518. 8000 S[178]54272:[129]E[178]S[164]S[170]28:[151]E,0:[130]
  519. 8010 [151]S[170]24,15:[151]S[170]5,42:[151]S[170]6,181
  520. 8020 [151]S[170]4,17:[151]S[170]1,20:[151]S,181
  521. 8030 [129]T[178]1[164]200:[130]:[151]S[170]4,25:[129]T[178]1[164]200:[130]
  522. 8040 [142]
  523.